Function ϸ(ȿ˻ As Range) As String

    Dim û As Range
    Dim  As Range
    Dim  As String

    Set û = Range("E6", Range("E6").End(xlDown))

    For Each  In û

        If ȿ˻.Find(What:=.Value) Is Nothing Then

             =  & IIf(Len() > 0, ",", "") & .Value

        End If

    Next

    ϸ = 

End Function